home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs29.d81 / sidst2.arc / UNVALIDATOR (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  34 lines
  1. 10 POKE53280,0:POKE53281,0:DV=PEEK(186):PRINT"[147]":SYS65418:POKE808,234
  2. 15 POKE53265,11
  3. 20 B$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  4. 30 PRINTB$:PRINTTAB(6)"[211]TEREO [197]DITOR [196]ISK [210]ESTORER":PRINTB$
  5. 40 PRINT"[155] [212]HIS UTILITY RESTORES A [211]TEREO [197]DITOR"
  6. 50 PRINT" DISK TO [208]UBLIC [196]OMAIN STATUS. [201]F YOU"
  7. 60 PRINT" ARE DISTRIBUTING [211]TEREO [197]DITOR TO"
  8. 70 PRINT" SOMEONE NOT ALREADY IN POSSESSION OF"
  9. 80 PRINT" THE [195]OMPUTE! [197]NHANCED [211]IDPLAYER BOOK/"
  10. 90 PRINT" DISK COMBINATION, AFTER COPYING YOUR"
  11. 100 PRINT" [211]TEREO [197]DITOR DISK YOU SHOULD RUN THIS"
  12. 110 PRINT" PROGRAM ON THE COPY TO REMOVE THE"
  13. 120 PRINT" [150][195][207][208][217][210][201][199][200][212][197][196][155] PLAYER MODULE THAT WAS"
  14. 130 PRINT" EARLIER COPIED TO YOUR DISK."
  15. 140 PRINT" [208]LEASE INSERT YOUR [211]TEREO [197]DITOR DISK"
  16. 150 PRINT" AT THIS TIME AND PRESS [153][210][197][212][213][210][206][155][146]."
  17. 200 POKE53265,27:POKE198,0
  18. 210 GETA$:IFA$=""THENSYS64738
  19. 220 IFA$<>CHR$(13)THEN210
  20. 225 PRINT"[147]    [215]ORKING..."
  21. 230 OPEN15,DV,15,"I0"
  22. 240 PRINT#15,"S0:010":INPUT#15,E,A$,T,S:IFE<>1ORT<>1THENCLOSE15:GOTO1000
  23. 250 OPEN1,DV,1,"010":PRINT#1,":)":CLOSE1:CLOSE15
  24. 260 PRINT"[147] [212]HIS [211]TEREO [197]DITOR DISK IS NOW"
  25. 270 PRINT" FREE TO DISTRIBUTE ON A PUBLIC DOMAIN"
  26. 280 PRINT" BASIS."
  27. 290 PRINT" [193]NOTHER DISK ([217]/[206])?":POKE198,0
  28. 300 GETA$:IFA$=""THEN300
  29. 310 IFA$="Y"ORA$="[217]"THENRUN
  30. 320 SYS64738
  31. 1000 PRINT"[147] [212]HIS IS NOT A [211]TEREO [197]DITOR DISK THAT"
  32. 1010 PRINT" CAN BE RESTORED TO [208]UBLIC [196]OMAIN"
  33. 1020 PRINT" STATUS.":GOTO290
  34.